/ Sexual Digital Arts: Lesbian / Sexual Digital Arts: Lesbian.iso / mac / LES_DATA / AINT / AINT.rsrc / VWFI_1024

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 02 b0 8b f4 | 00 00 00 08 00 00 00 00 |........|........|
|00000010| 00 07 00 00 00 00 00 00 | 19 e3 00 00 1a 00 00 00 |........|........|
|00000020| 1a 26 00 00 1a 26 00 00 | 1a 28 00 00 1a 28 00 00 |.&...&..|.(...(..|
|00000030| 1a 28 6f 6e 20 73 74 61 | 72 74 4d 6f 76 69 65 0d |.(on sta|rtMovie.|
|00000040| 20 20 20 20 71 74 43 68 | 65 63 6b 0d 20 20 20 20 |    qtCh|eck.    |
|00000050| 43 68 65 63 6b 43 6f 6c | 6f 72 0d 20 20 20 20 66 |CheckCol|or.    f|
|00000060| 69 65 6c 64 4d 61 6e 61 | 67 65 72 0d 20 20 20 20 |ieldMana|ger.    |
|00000070| 73 65 74 20 74 68 65 20 | 65 78 69 74 4c 4f 43 4b |set the |exitLOCK|
|00000080| 20 74 6f 20 46 41 4c 53 | 45 0d 20 20 20 20 77 68 | to FALS|E.    wh|
|00000090| 65 6e 20 6b 65 79 44 6f | 77 6e 20 74 68 65 6e 20 |en keyDo|wn then |
|000000a0| 67 69 76 65 55 70 4b 65 | 79 0d 65 6e 64 20 73 74 |giveUpKe|y.end st|
|000000b0| 61 72 74 4d 6f 76 69 65 | 0d 0d 0d 6f 6e 20 71 74 |artMovie|...on qt|
|000000c0| 43 68 65 63 6b 0d 20 20 | 20 20 69 66 20 74 68 65 |Check.  |  if the|
|000000d0| 20 71 75 69 63 6b 54 69 | 6d 65 50 72 65 73 65 6e | quickTi|mePresen|
|000000e0| 74 20 3c 3e 20 31 20 74 | 68 65 6e 20 0d 20 20 20 |t <> 1 t|hen .   |
|000000f0| 20 20 20 20 20 61 6c 65 | 72 74 20 22 8c bb 8d dd |     ale|rt "....|
|00000100| 82 b1 82 cc 4d 61 63 69 | 6e 74 6f 73 68 82 cc 83 |....Maci|ntosh...|
|00000110| 56 83 58 83 65 83 80 82 | c9 82 cd 51 75 69 63 6b |V.X.e...|...Quick|
|00000120| 54 69 6d 65 20 49 6e 69 | 74 82 aa 91 67 8d 9e 82 |Time Ini|t...g...|
|00000130| dc 82 ea 82 c4 82 a2 82 | dc 82 b9 82 f1 81 42 51 |........|......BQ|
|00000140| 75 69 63 6b 54 69 6d 65 | 20 49 6e 69 74 82 f0 83 |uickTime| Init...|
|00000150| 56 83 58 83 65 83 80 83 | 74 83 48 83 8b 83 5f 82 |V.X.e...|t.H..._.|
|00000160| cc 8b 40 94 5c 8a 67 92 | a3 82 c9 91 67 8d 9e 82 |..@.\.g.|....g...|
|00000170| f1 82 be 8c e3 81 41 8d | c4 8b 4e 93 ae 82 b5 82 |......A.|..N.....|
|00000180| c4 82 a9 82 e7 96 7b 8d | ec 95 69 82 f0 82 a8 8a |......{.|..i.....|
|00000190| 79 82 b5 82 dd 82 ad 82 | be 82 b3 82 a2 81 42 22 |y.......|......B"|
|000001a0| 0d 20 20 20 20 20 20 20 | 20 51 75 69 74 0d 20 20 |.       | Quit.  |
|000001b0| 20 20 65 6e 64 20 69 66 | 20 0d 65 6e 64 20 71 74 |  end if| .end qt|
|000001c0| 43 68 65 63 6b 0d 0d 0d | 6f 6e 20 43 68 65 63 6b |Check...|on Check|
|000001d0| 43 6f 6c 6f 72 0d 20 20 | 20 20 69 66 20 74 68 65 |Color.  |  if the|
|000001e0| 20 63 6f 6c 6f 72 51 44 | 20 3d 20 54 52 55 45 20 | colorQD| = TRUE |
|000001f0| 74 68 65 6e 0d 20 20 20 | 20 20 20 20 20 73 65 74 |then.   |     set|
|00000200| 20 74 68 65 20 63 6f 6c | 6f 72 44 65 70 74 68 20 | the col|orDepth |
|00000210| 3d 20 38 0d 20 20 20 20 | 65 6c 73 65 0d 20 20 20 |= 8.    |else.   |
|00000220| 20 20 20 20 20 61 6c 65 | 72 74 20 22 82 b1 82 cc |     ale|rt "....|
|00000230| 4d 61 63 69 6e 74 6f 73 | 68 82 cd 32 35 36 90 46 |Macintos|h..256.F|
|00000240| 82 cc 83 4a 83 89 81 5b | 95 5c 8e a6 82 aa 82 c5 |...J...[|.\......|
|00000250| 82 ab 82 c8 82 a2 8b 40 | 8e ed 82 c5 82 b7 81 42 |.......@|.......B|
|00000260| 8e 63 94 4f 82 c5 82 b7 | 82 aa 8f 49 97 b9 82 b5 |.c.O....|...I....|
|00000270| 82 dc 82 b7 81 42 22 0d | 20 20 20 20 20 20 20 20 |.....B".|        |
|00000280| 71 75 69 74 0d 20 20 20 | 20 65 6e 64 20 69 66 0d |quit.   | end if.|
|00000290| 65 6e 64 20 43 68 65 63 | 6b 43 6f 6c 6f 72 0d 0d |end Chec|kColor..|
|000002a0| 6f 6e 20 53 4d 0d 20 20 | 20 20 69 66 20 73 6f 75 |on SM.  |  if sou|
|000002b0| 6e 64 42 75 73 79 28 31 | 29 20 74 68 65 6e 20 67 |ndBusy(1|) then g|
|000002c0| 6f 20 6d 61 72 6b 65 72 | 20 28 2d 31 29 0d 20 20 |o marker| (-1).  |
|000002d0| 20 20 65 6c 73 65 20 67 | 6f 20 6d 61 72 6b 65 72 |  else g|o marker|
|000002e0| 20 28 31 29 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 | (1).end| if.end |
|000002f0| 53 4d 0d 0d 6f 6e 20 66 | 69 65 6c 64 4d 61 6e 61 |SM..on f|ieldMana|
|00000300| 67 65 72 0d 69 66 20 74 | 68 65 20 76 6f 6c 75 6d |ger.if t|he volum|
|00000310| 65 20 6f 66 20 73 6f 75 | 6e 64 20 31 20 3d 20 30 |e of sou|nd 1 = 0|
|00000320| 20 74 68 65 6e 0d 70 75 | 74 20 22 31 22 20 69 6e | then.pu|t "1" in|
|00000330| 74 6f 20 66 69 65 6c 64 | 20 22 61 64 64 41 64 64 |to field| "addAdd|
|00000340| 31 22 0d 65 6c 73 65 0d | 70 75 74 20 22 30 22 20 |1".else.|put "0" |
|00000350| 69 6e 74 6f 20 66 69 65 | 6c 64 20 22 61 64 64 41 |into fie|ld "addA|
|00000360| 64 64 31 22 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |dd1".end| if.end |
|00000370| 66 69 65 6c 64 4d 61 6e | 61 67 65 72 0d 0d 0d 0d |fieldMan|ager....|
|00000380| 6f 6e 20 73 6f 75 6e 64 | 43 68 65 63 6b 0d 69 66 |on sound|Check.if|
|00000390| 20 66 69 65 6c 64 20 22 | 61 64 64 41 64 64 31 22 | field "|addAdd1"|
|000003a0| 20 3d 20 31 20 74 68 65 | 6e 0d 53 6f 75 6e 64 30 | = 1 the|n.Sound0|
|000003b0| 0d 65 6c 73 65 20 0d 73 | 6f 75 6e 64 32 35 35 0d |.else .s|ound255.|
|000003c0| 65 6e 64 20 69 66 0d 65 | 6e 64 20 73 6f 75 6e 64 |end if.e|nd sound|
|000003d0| 43 68 65 63 6b 0d 0d 0d | 0d 6f 6e 20 67 6f 6f 64 |Check...|.on good|
|000003e0| 42 75 74 74 6f 6e 20 63 | 6f 6d 0d 70 75 74 20 69 |Button c|om.put i|
|000003f0| 74 65 6d 20 31 20 6f 66 | 20 74 68 65 20 6e 61 6d |tem 1 of| the nam|
|00000400| 65 20 6f 66 20 63 61 73 | 74 20 74 68 65 20 63 61 |e of cas|t the ca|
|00000410| 73 74 4e 75 6d 20 6f 66 | 20 73 70 72 69 74 65 20 |stNum of| sprite |
|00000420| 63 6c 69 63 6b 4f 6e 28 | 29 20 69 6e 74 6f 20 63 |clickOn(|) into c|
|00000430| 4e 61 6d 65 0d 72 65 70 | 65 61 74 20 77 68 69 6c |Name.rep|eat whil|
|00000440| 65 20 73 74 69 6c 6c 44 | 6f 77 6e 28 29 0d 69 66 |e stillD|own().if|
|00000450| 20 72 6f 6c 6c 4f 76 65 | 72 28 63 6c 69 63 6b 4f | rollOve|r(clickO|
|00000460| 6e 28 29 29 20 74 68 65 | 6e 0d 73 65 74 20 74 68 |n()) the|n.set th|
|00000470| 65 20 63 61 73 74 4e 75 | 6d 20 6f 66 20 73 70 72 |e castNu|m of spr|
|00000480| 69 74 65 20 63 6c 69 63 | 6b 4f 6e 28 29 20 3d 20 |ite clic|kOn() = |
|00000490| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 61 |the numb|er of ca|
|000004a0| 73 74 20 28 63 4e 61 6d | 65 20 26 20 22 2c 44 6f |st (cNam|e & ",Do|
|000004b0| 77 6e 22 29 0d 65 6c 73 | 65 20 0d 73 65 74 20 74 |wn").els|e .set t|
|000004c0| 68 65 20 63 61 73 74 4e | 75 6d 20 6f 66 20 73 70 |he castN|um of sp|
|000004d0| 72 69 74 65 20 63 6c 69 | 63 6b 4f 6e 28 29 20 3d |rite cli|ckOn() =|
|000004e0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c|
|000004f0| 61 73 74 20 28 63 4e 61 | 6d 65 20 26 20 22 2c 55 |ast (cNa|me & ",U|
|00000500| 70 22 29 0d 65 6e 64 20 | 69 66 0d 75 70 64 61 74 |p").end |if.updat|
|00000510| 65 53 74 61 67 65 0d 65 | 6e 64 20 72 65 70 65 61 |eStage.e|nd repea|
|00000520| 74 0d 73 65 74 20 74 68 | 65 20 63 61 73 74 4e 75 |t.set th|e castNu|
|00000530| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 63 6c 69 63 |m of spr|ite clic|
|00000540| 6b 4f 6e 28 29 20 3d 20 | 74 68 65 20 6e 75 6d 62 |kOn() = |the numb|
|00000550| 65 72 20 6f 66 20 63 61 | 73 74 20 28 63 4e 61 6d |er of ca|st (cNam|
|00000560| 65 20 26 20 22 2c 44 6f | 77 6e 22 29 20 0d 75 70 |e & ",Do|wn") .up|
|00000570| 64 61 74 65 53 74 61 67 | 65 0d 69 66 20 72 6f 6c |dateStag|e.if rol|
|00000580| 6c 4f 76 65 72 28 63 6c | 69 63 6b 4f 6e 28 29 29 |lOver(cl|ickOn())|
|00000590| 20 74 68 65 6e 20 64 6f | 20 63 6f 6d 0d 65 6e 64 | then do| com.end|
|000005a0| 20 67 6f 6f 64 42 75 74 | 74 6f 6e 0d 0d 6f 6e 20 | goodBut|ton..on |
|000005b0| 67 6f 6f 64 42 75 74 74 | 6f 6e 32 20 63 6f 6d 0d |goodButt|on2 com.|
|000005c0| 70 75 74 20 69 74 65 6d | 20 31 20 6f 66 20 74 68 |put item| 1 of th|
|000005d0| 65 20 6e 61 6d 65 20 6f | 66 20 63 61 73 74 20 74 |e name o|f cast t|
|000005e0| 68 65 20 63 61 73 74 4e | 75 6d 20 6f 66 20 73 70 |he castN|um of sp|
|000005f0| 72 69 74 65 20 63 6c 69 | 63 6b 4f 6e 28 29 20 69 |rite cli|ckOn() i|
|00000600| 6e 74 6f 20 63 4e 61 6d | 65 0d 72 65 70 65 61 74 |nto cNam|e.repeat|
|00000610| 20 77 68 69 6c 65 20 73 | 74 69 6c 6c 44 6f 77 6e | while s|tillDown|
|00000620| 28 29 0d 69 66 20 72 6f | 6c 6c 4f 76 65 72 28 63 |().if ro|llOver(c|
|00000630| 6c 69 63 6b 4f 6e 28 29 | 29 20 74 68 65 6e 0d 73 |lickOn()|) then.s|
|00000640| 65 74 20 74 68 65 20 63 | 61 73 74 4e 75 6d 20 6f |et the c|astNum o|
|00000650| 66 20 73 70 72 69 74 65 | 20 63 6c 69 63 6b 4f 6e |f sprite| clickOn|
|00000660| 28 29 20 3d 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |() = the| number |
|00000670| 6f 66 20 63 61 73 74 20 | 28 63 4e 61 6d 65 20 26 |of cast |(cName &|
|00000680| 20 22 2c 44 6f 77 6e 22 | 29 0d 65 6c 73 65 20 0d | ",Down"|).else .|
|00000690| 73 65 74 20 74 68 65 20 | 63 61 73 74 4e 75 6d 20 |set the |castNum |
|000006a0| 6f 66 20 73 70 72 69 74 | 65 20 63 6c 69 63 6b 4f |of sprit|e clickO|
|000006b0| 6e 28 29 20 3d 20 74 68 | 65 20 6e 75 6d 62 65 72 |n() = th|e number|
|000006c0| 20 6f 66 20 63 61 73 74 | 20 28 63 4e 61 6d 65 20 | of cast| (cName |
|000006d0| 26 20 22 2c 55 70 22 29 | 0d 65 6e 64 20 69 66 0d |& ",Up")|.end if.|
|000006e0| 75 70 64 61 74 65 53 74 | 61 67 65 0d 65 6e 64 20 |updateSt|age.end |
|000006f0| 72 65 70 65 61 74 0d 73 | 65 74 20 74 68 65 20 63 |repeat.s|et the c|
|00000700| 61 73 74 4e 75 6d 20 6f | 66 20 73 70 72 69 74 65 |astNum o|f sprite|
|00000710| 20 63 6c 69 63 6b 4f 6e | 28 29 20 3d 20 74 68 65 | clickOn|() = the|
|00000720| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 73 74 20 | number |of cast |
|00000730| 28 63 4e 61 6d 65 20 26 | 20 22 2c 55 70 22 29 20 |(cName &| ",Up") |
|00000740| 0d 75 70 64 61 74 65 53 | 74 61 67 65 0d 69 66 20 |.updateS|tage.if |
|00000750| 72 6f 6c 6c 4f 76 65 72 | 28 63 6c 69 63 6b 4f 6e |rollOver|(clickOn|
|00000760| 28 29 29 20 74 68 65 6e | 20 64 6f 20 63 6f 6d 0d |()) then| do com.|
|00000770| 65 6e 64 20 67 6f 6f 64 | 42 75 74 74 6f 6e 32 0d |end good|Button2.|
|00000780| 0d 0d 6f 6e 20 73 6f 75 | 6e 64 30 0d 73 65 74 20 |..on sou|nd0.set |
|00000790| 74 68 65 20 76 6f 6c 75 | 6d 65 20 6f 66 20 73 6f |the volu|me of so|
|000007a0| 75 6e 64 20 31 20 74 6f | 20 30 0d 65 6e 64 20 73 |und 1 to| 0.end s|
|000007b0| 6f 75 6e 64 30 20 20 20 | 0d 0d 0d 6f 6e 20 73 6f |ound0   |...on so|
|000007c0| 75 6e 64 32 35 35 0d 73 | 65 74 20 74 68 65 20 76 |und255.s|et the v|
|000007d0| 6f 6c 75 6d 65 20 6f 66 | 20 73 6f 75 6e 64 20 31 |olume of| sound 1|
|000007e0| 20 74 6f 20 32 35 35 0d | 65 6e 64 20 73 6f 75 6e | to 255.|end soun|
|000007f0| 64 32 35 35 20 20 20 20 | 0d 0d 0d 0d 6f 6e 20 6c |d255    |....on l|
|00000800| 6f 76 65 0d 67 6c 6f 62 | 61 6c 20 68 6f 6c 64 52 |ove.glob|al holdR|
|00000810| 61 74 65 0d 73 65 74 20 | 4e 20 3d 20 31 0d 70 75 |ate.set |N = 1.pu|
|00000820| 74 20 74 68 65 20 74 69 | 6d 65 72 20 69 6e 74 6f |t the ti|mer into|
|00000830| 20 4e 0d 73 65 74 20 68 | 6f 6c 64 52 61 74 65 20 | N.set h|oldRate |
|00000840| 3d 20 31 0d 72 65 70 65 | 61 74 20 77 68 69 6c 65 |= 1.repe|at while|
|00000850| 20 74 68 65 20 74 69 6d | 65 72 20 3c 20 4e 20 2b | the tim|er < N +|
|00000860| 20 68 6f 6c 64 52 61 74 | 65 0d 65 6e 64 20 72 65 | holdRat|e.end re|
|00000870| 70 65 61 74 0d 65 6e 64 | 20 6c 6f 76 65 20 20 20 |peat.end| love   |
|00000880| 20 0d 0d 0d 6f 6e 20 50 | 42 0d 70 75 74 20 28 74 | ...on P|B.put (t|
|00000890| 68 65 20 6c 6f 63 56 20 | 6f 66 20 73 70 72 69 74 |he locV |of sprit|
|000008a0| 65 20 63 6c 69 63 6b 6f | 6e 28 29 29 20 2b 20 31 |e clicko|n()) + 1|
|000008b0| 20 69 6e 74 6f 20 64 56 | 0d 70 75 74 20 28 74 68 | into dV|.put (th|
|000008c0| 65 20 6c 6f 63 48 20 6f | 66 20 73 70 72 69 74 65 |e locH o|f sprite|
|000008d0| 20 63 6c 69 63 6b 6f 6e | 28 29 29 20 2b 20 31 20 | clickon|()) + 1 |
|000008e0| 69 6e 74 6f 20 64 48 0d | 73 65 74 20 74 68 65 20 |into dH.|set the |
|000008f0| 6c 6f 63 56 20 6f 66 20 | 73 70 72 69 74 65 20 63 |locV of |sprite c|
|00000900| 6c 69 63 6b 4f 6e 28 29 | 20 3d 20 64 56 0d 73 65 |lickOn()| = dV.se|
|00000910| 74 20 74 68 65 20 6c 6f | 63 48 20 6f 66 20 73 70 |t the lo|cH of sp|
|00000920| 72 69 74 65 20 63 6c 69 | 63 6b 4f 6e 28 29 20 3d |rite cli|ckOn() =|
|00000930| 20 64 48 0d 75 70 44 61 | 74 65 53 74 61 67 65 0d | dH.upDa|teStage.|
|00000940| 72 65 70 65 61 74 20 77 | 68 69 6c 65 20 73 74 69 |repeat w|hile sti|
|00000950| 6c 6c 44 6f 77 6e 28 29 | 0d 69 66 20 72 6f 6c 6c |llDown()|.if roll|
|00000960| 4f 76 65 72 28 63 6c 69 | 63 6b 4f 6e 28 29 29 20 |Over(cli|ckOn()) |
|00000970| 6f 72 20 c2 0d 20 20 20 | 20 20 20 20 20 20 20 20 |or ..   |        |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 28 6d 6f |        |    ((mo|
|00000990| 75 73 65 56 28 29 20 3e | 3d 20 28 64 76 20 2d 20 |useV() >|= (dv - |
|000009a0| 31 29 20 61 6e 64 20 6d | 6f 75 73 65 48 28 29 20 |1) and m|ouseH() |
|000009b0| 3e 3d 20 28 64 48 20 2d | 20 31 29 29 20 61 6e 64 |>= (dH -| 1)) and|
|000009c0| 20 28 6d 6f 75 73 65 56 | 28 29 20 3c 3d 20 74 68 | (mouseV|() <= th|
|000009d0| 65 20 62 6f 74 74 6f 6d | 20 6f 66 20 73 70 72 69 |e bottom| of spri|
|000009e0| 74 65 20 63 6c 69 63 6b | 4f 6e 28 29 20 20 20 20 |te click|On()    |
|000009f0| 20 20 20 61 6e 64 20 c2 | 0d 20 20 20 20 20 20 20 |   and .|.       |
|00000a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a10| 20 20 6d 6f 75 73 65 48 | 28 29 20 3c 3d 20 74 68 |  mouseH|() <= th|
|00000a20| 65 20 72 69 67 68 74 20 | 6f 66 20 73 70 72 69 74 |e right |of sprit|
|00000a30| 65 20 63 6c 69 63 6b 4f | 6e 28 29 29 29 20 74 68 |e clickO|n())) th|
|00000a40| 65 6e 20 0d 73 65 74 20 | 74 68 65 20 6c 6f 63 56 |en .set |the locV|
|00000a50| 20 6f 66 20 73 70 72 69 | 74 65 20 63 6c 69 63 6b | of spri|te click|
|00000a60| 4f 6e 28 29 20 3d 20 64 | 56 0d 73 65 74 20 74 68 |On() = d|V.set th|
|00000a70| 65 20 6c 6f 63 48 20 6f | 66 20 73 70 72 69 74 65 |e locH o|f sprite|
|00000a80| 20 63 6c 69 63 6b 4f 6e | 28 29 20 3d 20 64 48 0d | clickOn|() = dH.|
|00000a90| 65 6c 73 65 0d 73 65 74 | 20 74 68 65 20 6c 6f 63 |else.set| the loc|
|00000aa0| 56 20 6f 66 20 73 70 72 | 69 74 65 20 63 6c 69 63 |V of spr|ite clic|
|00000ab0| 6b 4f 6e 28 29 20 3d 20 | 64 56 20 2d 20 31 0d 73 |kOn() = |dV - 1.s|
|00000ac0| 65 74 20 74 68 65 20 6c | 6f 63 48 20 6f 66 20 73 |et the l|ocH of s|
|00000ad0| 70 72 69 74 65 20 63 6c | 69 63 6b 4f 6e 28 29 20 |prite cl|ickOn() |
|00000ae0| 3d 20 64 48 20 2d 20 31 | 0d 65 6e 64 20 69 66 0d |= dH - 1|.end if.|
|00000af0| 75 70 44 61 74 65 53 74 | 61 67 65 0d 65 6e 64 20 |upDateSt|age.end |
|00000b00| 72 65 70 65 61 74 0d 70 | 75 74 20 72 6f 6c 6c 4f |repeat.p|ut rollO|
|00000b10| 76 65 72 28 63 6c 69 63 | 6b 4f 6e 28 29 29 20 69 |ver(clic|kOn()) i|
|00000b20| 6e 74 6f 20 52 0d 73 65 | 74 20 74 68 65 20 6c 6f |nto R.se|t the lo|
|00000b30| 63 56 20 6f 66 20 73 70 | 72 69 74 65 20 63 6c 69 |cV of sp|rite cli|
|00000b40| 63 6b 4f 6e 28 29 20 3d | 20 64 56 20 2d 20 31 0d |ckOn() =| dV - 1.|
|00000b50| 73 65 74 20 74 68 65 20 | 6c 6f 63 48 20 6f 66 20 |set the |locH of |
|00000b60| 73 70 72 69 74 65 20 63 | 6c 69 63 6b 4f 6e 28 29 |sprite c|lickOn()|
|00000b70| 20 3d 20 64 48 20 2d 20 | 31 0d 75 70 44 61 74 65 | = dH - |1.upDate|
|00000b80| 53 74 61 67 65 0d 72 65 | 74 75 72 6e 20 52 0d 65 |Stage.re|turn R.e|
|00000b90| 6e 64 20 50 42 20 20 20 | 20 0d 0d 0d 6f 6e 20 70 |nd PB   | ...on p|
|00000ba0| 75 70 70 65 74 4f 6e 20 | 73 70 72 69 74 65 4e 75 |uppetOn |spriteNu|
|00000bb0| 6d 49 74 65 6d 0d 69 66 | 20 69 6e 74 65 67 65 72 |mItem.if| integer|
|00000bc0| 50 28 73 70 72 69 74 65 | 4e 75 6d 49 74 65 6d 29 |P(sprite|NumItem)|
|00000bd0| 20 74 68 65 6e 20 70 75 | 74 20 73 74 72 69 6e 67 | then pu|t string|
|00000be0| 28 73 70 72 69 74 65 4e | 75 6d 49 74 65 6d 29 20 |(spriteN|umItem) |
|00000bf0| 69 6e 74 6f 20 73 70 72 | 69 74 65 4e 75 6d 49 74 |into spr|iteNumIt|
|00000c00| 65 6d 0d 72 65 70 65 61 | 74 20 77 69 74 68 20 6e |em.repea|t with n|
|00000c10| 20 3d 20 31 20 74 6f 20 | 74 68 65 20 6e 75 6d 62 | = 1 to |the numb|
|00000c20| 65 72 20 6f 66 20 69 74 | 65 6d 73 20 69 6e 20 73 |er of it|ems in s|
|00000c30| 70 72 69 74 65 4e 75 6d | 49 74 65 6d 0d 70 75 70 |priteNum|Item.pup|
|00000c40| 70 65 74 53 70 72 69 74 | 65 20 69 6e 74 65 67 65 |petSprit|e intege|
|00000c50| 72 28 69 74 65 6d 20 6e | 20 6f 66 20 73 70 72 69 |r(item n| of spri|
|00000c60| 74 65 4e 75 6d 49 74 65 | 6d 29 2c 20 54 52 55 45 |teNumIte|m), TRUE|
|00000c70| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 65 6e 64 20 |.end rep|eat.end |
|00000c80| 70 75 70 70 65 74 4f 6e | 0d 0d 0d 0d 6f 6e 20 70 |puppetOn|....on p|
|00000c90| 75 70 70 65 74 4f 66 66 | 20 73 70 72 69 74 65 4e |uppetOff| spriteN|
|00000ca0| 75 6d 49 74 65 6d 0d 69 | 66 20 69 6e 74 65 67 65 |umItem.i|f intege|
|00000cb0| 72 50 28 73 70 72 69 74 | 65 4e 75 6d 49 74 65 6d |rP(sprit|eNumItem|
|00000cc0| 29 20 74 68 65 6e 20 70 | 75 74 20 73 74 72 69 6e |) then p|ut strin|
|00000cd0| 67 28 73 70 72 69 74 65 | 4e 75 6d 49 74 65 6d 29 |g(sprite|NumItem)|
|00000ce0| 20 69 6e 74 6f 20 73 70 | 72 69 74 65 4e 75 6d 49 | into sp|riteNumI|
|00000cf0| 74 65 6d 0d 72 65 70 65 | 61 74 20 77 69 74 68 20 |tem.repe|at with |
|00000d00| 6e 20 3d 20 31 20 74 6f | 20 74 68 65 20 6e 75 6d |n = 1 to| the num|
|00000d10| 62 65 72 20 6f 66 20 69 | 74 65 6d 73 20 69 6e 20 |ber of i|tems in |
|00000d20| 73 70 72 69 74 65 4e 75 | 6d 49 74 65 6d 0d 70 75 |spriteNu|mItem.pu|
|00000d30| 70 70 65 74 53 70 72 69 | 74 65 20 69 6e 74 65 67 |ppetSpri|te integ|
|00000d40| 65 72 28 69 74 65 6d 20 | 6e 20 6f 66 20 73 70 72 |er(item |n of spr|
|00000d50| 69 74 65 4e 75 6d 49 74 | 65 6d 29 2c 20 46 41 4c |iteNumIt|em), FAL|
|00000d60| 53 45 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 65 6e |SE.end r|epeat.en|
|00000d70| 64 20 70 75 70 70 65 74 | 4f 66 66 20 20 20 20 0d |d puppet|Off    .|
|00000d80| 0d 0d 0d 6f 6e 20 70 75 | 70 70 65 74 43 6c 65 61 |...on pu|ppetClea|
|00000d90| 72 0d 72 65 70 65 61 74 | 20 77 69 74 68 20 6e 20 |r.repeat| with n |
|00000da0| 3d 20 31 20 74 6f 20 32 | 34 0d 69 66 20 74 68 65 |= 1 to 2|4.if the|
|00000db0| 20 74 79 70 65 20 6f 66 | 20 73 70 72 69 74 65 20 | type of| sprite |
|00000dc0| 6e 20 3c 3e 20 30 20 74 | 68 65 6e 20 70 75 70 70 |n <> 0 t|hen pupp|
|00000dd0| 65 74 53 70 72 69 74 65 | 20 6e 2c 20 46 41 4c 53 |etSprite| n, FALS|
|00000de0| 45 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 65 6e 64 |E.end re|peat.end|
|00000df0| 20 70 75 70 70 65 74 43 | 6c 65 61 72 20 20 20 20 | puppetC|lear    |
|00000e00| 0d 0d 0d 0d 6f 6e 20 70 | 75 70 70 65 74 41 6c 6c |....on p|uppetAll|
|00000e10| 20 20 20 20 0d 72 65 70 | 65 61 74 20 77 69 74 68 |    .rep|eat with|
|00000e20| 20 6e 20 3d 20 31 20 74 | 6f 20 32 34 0d 69 66 20 | n = 1 t|o 24.if |
|00000e30| 74 68 65 20 74 79 70 65 | 20 6f 66 20 73 70 72 69 |the type| of spri|
|00000e40| 74 65 20 6e 20 3c 3e 20 | 30 20 74 68 65 6e 20 70 |te n <> |0 then p|
|00000e50| 75 70 70 65 74 53 70 72 | 69 74 65 20 6e 2c 20 54 |uppetSpr|ite n, T|
|00000e60| 52 55 45 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 65 |RUE.end |repeat.e|
|00000e70| 6e 64 20 70 75 70 70 65 | 74 41 6c 6c 20 20 20 20 |nd puppe|tAll    |
|00000e80| 0d 0d 0d 0d 6f 6e 20 63 | 75 72 43 68 61 6e 31 0d |....on c|urChan1.|
|00000e90| 77 68 65 6e 20 6d 6f 75 | 73 65 44 6f 77 6e 20 74 |when mou|seDown t|
|00000ea0| 68 65 6e 20 6e 6f 74 68 | 69 6e 67 20 0d 63 75 72 |hen noth|ing .cur|
|00000eb0| 73 6f 72 20 31 32 38 0d | 6c 6f 76 65 0d 63 75 72 |sor 128.|love.cur|
|00000ec0| 73 6f 72 20 31 32 39 0d | 6c 6f 76 65 0d 63 75 72 |sor 129.|love.cur|
|00000ed0| 73 6f 72 20 31 33 30 0d | 6c 6f 76 65 0d 63 75 72 |sor 130.|love.cur|
|00000ee0| 73 6f 72 20 31 33 31 0d | 6c 6f 76 65 0d 63 75 72 |sor 131.|love.cur|
|00000ef0| 73 6f 72 20 31 33 32 0d | 6c 6f 76 65 0d 63 75 72 |sor 132.|love.cur|
|00000f00| 73 6f 72 20 31 33 33 0d | 65 6e 64 20 63 75 72 43 |sor 133.|end curC|
|00000f10| 68 61 6e 31 0d 0d 0d 6f | 6e 20 63 75 72 43 68 61 |han1...o|n curCha|
|00000f20| 6e 32 0d 77 68 65 6e 20 | 6d 6f 75 73 65 44 6f 77 |n2.when |mouseDow|
|00000f30| 6e 20 74 68 65 6e 20 6e | 6f 74 68 69 6e 67 20 0d |n then n|othing .|
|00000f40| 63 75 72 73 6f 72 20 31 | 38 37 0d 6c 6f 76 65 0d |cursor 1|87.love.|
|00000f50| 63 75 72 73 6f 72 20 31 | 38 38 0d 6c 6f 76 65 0d |cursor 1|88.love.|
|00000f60| 63 75 72 73 6f 72 20 31 | 38 39 0d 6c 6f 76 65 0d |cursor 1|89.love.|
|00000f70| 63 75 72 73 6f 72 20 31 | 39 30 0d 6c 6f 76 65 0d |cursor 1|90.love.|
|00000f80| 63 75 72 73 6f 72 20 31 | 39 31 0d 6c 6f 76 65 20 |cursor 1|91.love |
|00000f90| 0d 63 75 72 73 6f 72 20 | 31 39 32 0d 6c 6f 76 65 |.cursor |192.love|
|00000fa0| 0d 63 75 72 73 6f 72 20 | 31 39 33 0d 65 6e 64 20 |.cursor |193.end |
|00000fb0| 63 75 72 43 68 61 6e 32 | 0d 0d 0d 6f 6e 20 63 75 |curChan2|...on cu|
|00000fc0| 72 43 68 61 6e 33 0d 77 | 68 65 6e 20 6d 6f 75 73 |rChan3.w|hen mous|
|00000fd0| 65 44 6f 77 6e 20 74 68 | 65 6e 20 6e 6f 74 68 69 |eDown th|en nothi|
|00000fe0| 6e 67 20 0d 63 75 72 73 | 6f 72 20 31 37 31 0d 6c |ng .curs|or 171.l|
|00000ff0| 6f 76 65 0d 63 75 72 73 | 6f 72 20 31 37 32 0d 6c |ove.curs|or 172.l|
|00001000| 6f 76 65 0d 63 75 72 73 | 6f 72 20 31 37 33 0d 6c |ove.curs|or 173.l|
|00001010| 6f 76 65 0d 63 75 72 73 | 6f 72 20 31 37 34 0d 6c |ove.curs|or 174.l|
|00001020| 6f 76 65 0d 63 75 72 73 | 6f 72 20 31 37 35 0d 6c |ove.curs|or 175.l|
|00001030| 6f 76 65 0d 63 75 72 73 | 6f 72 20 31 37 36 0d 65 |ove.curs|or 176.e|
|00001040| 6e 64 20 63 75 72 43 68 | 61 6e 33 20 20 20 20 0d |nd curCh|an3    .|
|00001050| 0d 0d 6f 6e 20 63 75 72 | 73 6f 72 4e 75 6d 62 65 |..on cur|sorNumbe|
|00001060| 72 0d 77 68 65 6e 20 6d | 6f 75 73 65 44 6f 77 6e |r.when m|ouseDown|
|00001070| 20 74 68 65 6e 20 63 75 | 72 73 6f 72 20 33 30 34 | then cu|rsor 304|
|00001080| 0d 65 6e 64 20 63 75 72 | 73 6f 72 4e 75 6d 62 65 |.end cur|sorNumbe|
|00001090| 72 20 20 20 0d 0d 0d 6f | 6e 20 63 75 72 73 6f 72 |r   ...o|n cursor|
|000010a0| 4e 75 6d 62 65 72 32 30 | 30 0d 63 75 72 73 6f 72 |Number20|0.cursor|
|000010b0| 20 32 30 30 0d 65 6e 64 | 20 63 75 72 73 6f 72 4e | 200.end| cursorN|
|000010c0| 75 6d 62 65 72 32 30 30 | 20 20 20 0d 0d 0d 6f 6e |umber200|   ...on|
|000010d0| 20 63 75 72 73 6f 72 4e | 75 6d 62 65 72 32 36 30 | cursorN|umber260|
|000010e0| 0d 63 75 72 73 6f 72 20 | 32 36 30 0d 65 6e 64 20 |.cursor |260.end |
|000010f0| 63 75 72 73 6f 72 4e 75 | 6d 62 65 72 32 36 30 20 |cursorNu|mber260 |
|00001100| 20 20 20 0d 0d 0d 6f 6e | 20 63 75 72 73 6f 72 4e |   ...on| cursorN|
|00001110| 75 6d 62 65 72 32 38 30 | 0d 63 75 72 73 6f 72 20 |umber280|.cursor |
|00001120| 32 38 30 0d 65 6e 64 20 | 63 75 72 73 6f 72 4e 75 |280.end |cursorNu|
|00001130| 6d 62 65 72 32 38 30 20 | 20 20 20 0d 0d 0d 6f 6e |mber280 |   ...on|
|00001140| 20 63 75 72 73 6f 72 4e | 75 6d 62 65 72 33 30 33 | cursorN|umber303|
|00001150| 0d 63 75 72 73 6f 72 20 | 33 30 33 0d 65 6e 64 20 |.cursor |303.end |
|00001160| 63 75 72 73 6f 72 4e 75 | 6d 62 65 72 33 30 33 20 |cursorNu|mber303 |
|00001170| 20 20 20 0d 0d 0d 6f 6e | 20 63 75 72 73 6f 72 4e |   ...on| cursorN|
|00001180| 75 6d 62 65 72 33 30 35 | 0d 63 75 72 73 6f 72 20 |umber305|.cursor |
|00001190| 33 30 35 0d 65 6e 64 20 | 63 75 72 73 6f 72 4e 75 |305.end |cursorNu|
|000011a0| 6d 62 65 72 33 30 35 20 | 20 20 0d 0d 0d 6f 6e 20 |mber305 |  ...on |
|000011b0| 63 75 72 73 6f 72 4e 75 | 6d 62 65 72 33 30 36 0d |cursorNu|mber306.|
|000011c0| 63 75 72 73 6f 72 20 33 | 30 36 0d 65 6e 64 20 63 |cursor 3|06.end c|
|000011d0| 75 72 73 6f 72 4e 75 6d | 62 65 72 33 30 36 20 20 |ursorNum|ber306  |
|000011e0| 20 20 0d 0d 0d 6f 6e 20 | 63 75 72 73 6f 72 4e 75 |  ...on |cursorNu|
|000011f0| 6d 62 65 72 33 30 37 0d | 63 75 72 73 6f 72 20 33 |mber307.|cursor 3|
|00001200| 30 37 0d 65 6e 64 20 63 | 75 72 73 6f 72 4e 75 6d |07.end c|ursorNum|
|00001210| 62 65 72 33 30 37 20 20 | 20 20 0d 0d 0d 6f 6e 20 |ber307  |  ...on |
|00001220| 63 75 72 73 6f 72 4e 75 | 6d 62 65 72 33 30 38 0d |cursorNu|mber308.|
|00001230| 63 75 72 73 6f 72 20 33 | 30 38 0d 65 6e 64 20 63 |cursor 3|08.end c|
|00001240| 75 72 73 6f 72 4e 75 6d | 62 65 72 33 30 38 20 20 |ursorNum|ber308  |
|00001250| 20 0d 0d 0d 6f 6e 20 63 | 75 72 73 6f 72 4e 75 6d | ...on c|ursorNum|
|00001260| 62 65 72 33 30 39 0d 63 | 75 72 73 6f 72 20 33 30 |ber309.c|ursor 30|
|00001270| 39 0d 65 6e 64 20 63 75 | 72 73 6f 72 4e 75 6d 62 |9.end cu|rsorNumb|
|00001280| 65 72 33 30 39 0d 0d 0d | 6f 6e 20 63 75 72 73 6f |er309...|on curso|
|00001290| 72 4e 75 6d 62 65 72 33 | 31 30 0d 63 75 72 73 6f |rNumber3|10.curso|
|000012a0| 72 20 33 31 30 0d 65 6e | 64 20 63 75 72 73 6f 72 |r 310.en|d cursor|
|000012b0| 4e 75 6d 62 65 72 33 31 | 30 20 20 20 20 0d 0d 0d |Number31|0    ...|
|000012c0| 6f 6e 20 63 75 72 73 6f | 72 4e 75 6d 62 65 72 31 |on curso|rNumber1|
|000012d0| 0d 63 75 72 73 6f 72 20 | 2d 31 0d 65 6e 64 20 63 |.cursor |-1.end c|
|000012e0| 75 72 73 6f 72 4e 75 6d | 62 65 72 31 20 20 20 20 |ursorNum|ber1    |
|000012f0| 0d 0d 0d 6f 6e 20 64 72 | 61 67 53 70 63 69 61 6c |...on dr|agSpcial|
|00001300| 0d 70 75 70 70 65 74 53 | 70 72 69 74 65 20 63 6c |.puppetS|prite cl|
|00001310| 69 63 6b 4f 6e 28 29 2c | 20 54 52 55 45 0d 0d 70 |ickOn(),| TRUE..p|
|00001320| 75 74 20 6d 6f 75 73 65 | 48 28 29 20 2d 20 74 68 |ut mouse|H() - th|
|00001330| 65 20 6c 6f 63 48 20 6f | 66 20 73 70 72 69 74 65 |e locH o|f sprite|
|00001340| 20 63 6c 69 63 6b 4f 6e | 28 29 20 69 6e 74 6f 20 | clickOn|() into |
|00001350| 6d 48 0d 70 75 74 20 6d | 6f 75 73 65 56 28 29 20 |mH.put m|ouseV() |
|00001360| 2d 20 74 68 65 20 6c 6f | 63 56 20 6f 66 20 73 70 |- the lo|cV of sp|
|00001370| 72 69 74 65 20 63 6c 69 | 63 6b 4f 6e 28 29 20 69 |rite cli|ckOn() i|
|00001380| 6e 74 6f 20 6d 56 0d 0d | 72 65 70 65 61 74 20 77 |nto mV..|repeat w|
|00001390| 68 69 6c 65 20 73 74 69 | 6c 6c 44 6f 77 6e 28 29 |hile sti|llDown()|
|000013a0| 0d 73 65 74 20 74 68 65 | 20 6c 6f 63 48 20 6f 66 |.set the| locH of|
|000013b0| 20 73 70 72 69 74 65 20 | 63 6c 69 63 6b 4f 6e 28 | sprite |clickOn(|
|000013c0| 29 20 3d 20 6d 6f 75 73 | 65 48 28 29 20 2d 20 6d |) = mous|eH() - m|
|000013d0| 48 0d 73 65 74 20 74 68 | 65 20 6c 6f 63 56 20 6f |H.set th|e locV o|
|000013e0| 66 20 73 70 72 69 74 65 | 20 63 6c 69 63 6b 4f 6e |f sprite| clickOn|
|000013f0| 28 29 20 3d 20 6d 6f 75 | 73 65 56 28 29 20 2d 20 |() = mou|seV() - |
|00001400| 6d 56 0d 75 70 44 61 74 | 65 53 74 61 67 65 0d 65 |mV.upDat|eStage.e|
|00001410| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 64 72 |nd repea|t.end dr|
|00001420| 61 67 53 70 63 69 61 6c | 20 20 20 20 0d 0d 0d 6f |agSpcial|    ...o|
|00001430| 6e 20 6d 6f 76 65 53 70 | 72 69 74 65 20 73 70 4e |n moveSp|rite spN|
|00001440| 75 6d 2c 20 48 2c 20 56 | 0d 0d 70 75 74 20 35 20 |um, H, V|..put 5 |
|00001450| 69 6e 74 6f 20 6d 6f 76 | 65 52 61 74 65 0d 0d 70 |into mov|eRate..p|
|00001460| 75 70 70 65 74 53 70 72 | 69 74 65 20 73 70 4e 75 |uppetSpr|ite spNu|
|00001470| 6d 2c 20 54 52 55 45 0d | 70 75 74 20 74 68 65 20 |m, TRUE.|put the |
|00001480| 6c 6f 63 48 20 6f 66 20 | 73 70 72 69 74 65 20 73 |locH of |sprite s|
|00001490| 70 4e 75 6d 20 69 6e 74 | 6f 20 73 48 0d 70 75 74 |pNum int|o sH.put|
|000014a0| 20 74 68 65 20 6c 6f 63 | 56 20 6f 66 20 73 70 72 | the loc|V of spr|
|000014b0| 69 74 65 20 73 70 4e 75 | 6d 20 69 6e 74 6f 20 73 |ite spNu|m into s|
|000014c0| 56 0d 0d 70 75 74 20 48 | 20 2d 20 73 48 20 69 6e |V..put H| - sH in|
|000014d0| 74 6f 20 6d 6f 76 65 48 | 20 0d 70 75 74 20 56 20 |to moveH| .put V |
|000014e0| 2d 20 73 56 20 69 6e 74 | 6f 20 6d 6f 76 65 56 0d |- sV int|o moveV.|
|000014f0| 0d 70 75 74 20 61 62 73 | 28 6d 6f 76 65 48 20 2a |.put abs|(moveH *|
|00001500| 20 28 61 62 73 28 6d 6f | 76 65 48 29 20 3e 3d 20 | (abs(mo|veH) >= |
|00001510| 61 62 73 28 6d 6f 76 65 | 56 29 29 20 2b 20 c2 0d |abs(move|V)) + ..|
|00001520| 20 20 20 20 6d 6f 76 65 | 56 20 2a 20 28 61 62 73 |    move|V * (abs|
|00001530| 28 6d 6f 76 65 48 29 20 | 3c 20 61 62 73 28 6d 6f |(moveH) |< abs(mo|
|00001540| 76 65 56 29 29 29 20 69 | 6e 74 6f 20 72 65 70 65 |veV))) i|nto repe|
|00001550| 61 74 54 69 6d 65 0d 0d | 69 66 20 72 65 70 65 61 |atTime..|if repea|
|00001560| 74 54 69 6d 65 20 3c 3e | 20 30 20 74 68 65 6e 0d |tTime <>| 0 then.|
|00001570| 0d 69 66 20 6d 6f 76 65 | 48 20 3c 3e 20 30 20 74 |.if move|H <> 0 t|
|00001580| 68 65 6e 20 0d 70 75 74 | 20 28 61 62 73 28 6d 6f |hen .put| (abs(mo|
|00001590| 76 65 48 29 20 3e 3d 20 | 61 62 73 28 6d 6f 76 65 |veH) >= |abs(move|
|000015a0| 56 29 29 20 2a 20 6d 6f | 76 65 48 20 2f 20 61 62 |V)) * mo|veH / ab|
|000015b0| 73 28 6d 6f 76 65 48 29 | 20 2b c2 0d 20 20 20 20 |s(moveH)| +..    |
|000015c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000015d0| 20 20 20 20 28 61 62 73 | 28 6d 6f 76 65 48 29 20 |    (abs|(moveH) |
|000015e0| 3c 20 61 62 73 28 6d 6f | 76 65 56 29 29 20 2a 20 |< abs(mo|veV)) * |
|000015f0| 31 2e 30 20 2a 20 6d 6f | 76 65 48 20 2f 20 72 65 |1.0 * mo|veH / re|
|00001600| 70 65 61 74 54 69 6d 65 | 20 69 6e 74 6f 20 70 6c |peatTime| into pl|
|00001610| 75 73 48 0d 65 6c 73 65 | 20 70 75 74 20 30 20 69 |usH.else| put 0 i|
|00001620| 6e 74 6f 20 70 6c 75 73 | 48 0d 69 66 20 6d 6f 76 |nto plus|H.if mov|
|00001630| 65 56 20 3c 3e 20 30 20 | 74 68 65 6e 0d 70 75 74 |eV <> 0 |then.put|
|00001640| 20 28 61 62 73 28 6d 6f | 76 65 56 29 20 3e 3d 20 | (abs(mo|veV) >= |
|00001650| 61 62 73 28 6d 6f 76 65 | 48 29 29 20 2a 20 6d 6f |abs(move|H)) * mo|
|00001660| 76 65 56 20 2f 20 61 62 | 73 28 6d 6f 76 65 56 29 |veV / ab|s(moveV)|
|00001670| 20 2b c2 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 | +..    |        |
|00001680| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 61 62 73 |        |    (abs|
|00001690| 28 6d 6f 76 65 56 29 20 | 3c 20 61 62 73 28 6d 6f |(moveV) |< abs(mo|
|000016a0| 76 65 48 29 29 20 2a 20 | 31 2e 30 20 2a 20 6d 6f |veH)) * |1.0 * mo|
|000016b0| 76 65 56 20 2f 20 72 65 | 70 65 61 74 54 69 6d 65 |veV / re|peatTime|
|000016c0| 20 69 6e 74 6f 20 70 6c | 75 73 56 0d 65 6c 73 65 | into pl|usV.else|
|000016d0| 20 70 75 74 20 30 20 69 | 6e 74 6f 20 70 6c 75 73 | put 0 i|nto plus|
|000016e0| 56 0d 0d 72 65 70 65 61 | 74 20 77 69 74 68 20 6e |V..repea|t with n|
|000016f0| 20 3d 20 35 30 30 20 74 | 6f 20 72 65 70 65 61 74 | = 500 t|o repeat|
|00001700| 54 69 6d 65 0d 0d 70 75 | 74 20 73 48 20 2b 20 70 |Time..pu|t sH + p|
|00001710| 6c 75 73 48 20 69 6e 74 | 6f 20 73 48 0d 70 75 74 |lusH int|o sH.put|
|00001720| 20 73 56 20 2b 20 70 6c | 75 73 56 20 69 6e 74 6f | sV + pl|usV into|
|00001730| 20 73 56 0d 0d 73 65 74 | 20 74 68 65 20 6c 6f 63 | sV..set| the loc|
|00001740| 48 20 6f 66 20 73 70 72 | 69 74 65 20 73 70 4e 75 |H of spr|ite spNu|
|00001750| 6d 20 3d 20 69 6e 74 65 | 67 65 72 28 73 48 29 0d |m = inte|ger(sH).|
|00001760| 73 65 74 20 74 68 65 20 | 6c 6f 63 56 20 6f 66 20 |set the |locV of |
|00001770| 73 70 72 69 74 65 20 73 | 70 4e 75 6d 20 3d 20 69 |sprite s|pNum = i|
|00001780| 6e 74 65 67 65 72 28 73 | 56 29 0d 75 70 44 61 74 |nteger(s|V).upDat|
|00001790| 65 53 74 61 67 65 0d 0d | 65 6e 64 20 72 65 70 65 |eStage..|end repe|
|000017a0| 61 74 0d 0d 65 6e 64 20 | 69 66 0d 0d 73 65 74 20 |at..end |if..set |
|000017b0| 74 68 65 20 6c 6f 63 48 | 20 6f 66 20 73 70 72 69 |the locH| of spri|
|000017c0| 74 65 20 73 70 4e 75 6d | 20 3d 20 48 0d 73 65 74 |te spNum| = H.set|
|000017d0| 20 74 68 65 20 6c 6f 63 | 56 20 6f 66 20 73 70 72 | the loc|V of spr|
|000017e0| 69 74 65 20 73 70 4e 75 | 6d 20 3d 20 56 0d 75 70 |ite spNu|m = V.up|
|000017f0| 64 61 74 65 53 74 61 67 | 65 0d 65 6e 64 20 6d 6f |dateStag|e.end mo|
|00001800| 76 65 53 70 72 69 74 65 | 20 20 20 20 0d 0d 0d 6f |veSprite|    ...o|
|00001810| 6e 20 67 69 76 65 55 70 | 4b 65 79 0d 69 66 20 74 |n giveUp|Key.if t|
|00001820| 68 65 20 6b 65 79 43 6f | 64 65 20 3d 20 35 33 20 |he keyCo|de = 53 |
|00001830| 74 68 65 6e 20 67 6f 20 | 74 6f 20 22 4e 45 58 54 |then go |to "NEXT|
|00001840| 22 0d 65 6c 73 65 0d 69 | 66 20 74 68 65 20 6b 65 |".else.i|f the ke|
|00001850| 79 43 6f 64 65 20 3d 20 | 33 36 20 74 68 65 6e 20 |yCode = |36 then |
|00001860| 70 6c 61 79 20 22 50 61 | 6e 69 63 22 0d 65 6c 73 |play "Pa|nic".els|
|00001870| 65 0d 69 66 20 6b 65 79 | 28 29 20 3d 20 22 51 22 |e.if key|() = "Q"|
|00001880| 20 61 6e 64 20 63 6f 6d | 6d 61 6e 64 44 6f 77 6e | and com|mandDown|
|00001890| 28 29 20 74 68 65 6e 20 | 70 6c 61 79 20 22 51 75 |() then |play "Qu|
|000018a0| 69 74 22 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |it".end |if.end i|
|000018b0| 66 0d 65 6e 64 20 69 66 | 20 20 20 0d 65 6e 64 20 |f.end if|   .end |
|000018c0| 67 69 76 65 55 70 4b 65 | 79 0d 0d 0d 0d 6f 6e 20 |giveUpKe|y....on |
|000018d0| 63 6f 6c 6f 72 43 68 61 | 6e 67 65 0d 73 65 74 20 |colorCha|nge.set |
|000018e0| 74 68 65 20 63 6f 6c 6f | 72 44 65 70 74 68 20 3d |the colo|rDepth =|
|000018f0| 33 32 0d 69 66 20 63 6f | 6c 6f 72 44 65 70 74 68 |32.if co|lorDepth|
|00001900| 28 29 20 3d 20 33 32 20 | 74 68 65 6e 20 73 65 74 |() = 32 |then set|
|00001910| 20 4f 48 54 53 55 4b 49 | 20 3d 20 33 32 20 20 20 | OHTSUKI| = 32   |
|00001920| 0d 65 6c 73 65 0d 73 65 | 74 20 74 68 65 20 63 6f |.else.se|t the co|
|00001930| 6c 6f 72 44 65 70 74 68 | 20 3d 31 36 0d 69 66 20 |lorDepth| =16.if |
|00001940| 63 6f 6c 6f 72 44 65 70 | 74 68 28 29 20 3d 20 31 |colorDep|th() = 1|
|00001950| 36 20 74 68 65 6e 20 73 | 65 74 20 4f 48 54 53 55 |6 then s|et OHTSU|
|00001960| 4b 49 20 3d 20 31 36 20 | 20 20 20 0d 65 6c 73 65 |KI = 16 |   .else|
|00001970| 0d 73 65 74 20 74 68 65 | 20 63 6f 6c 6f 72 44 65 |.set the| colorDe|
|00001980| 70 74 68 20 3d 38 0d 69 | 66 20 63 6f 6c 6f 72 44 |pth =8.i|f colorD|
|00001990| 65 70 74 68 28 29 20 3d | 20 38 20 74 68 65 6e 20 |epth() =| 8 then |
|000019a0| 73 65 74 20 4f 48 54 53 | 55 4b 49 20 3d 20 38 20 |set OHTS|UKI = 8 |
|000019b0| 20 20 20 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |   .end |if.end i|
|000019c0| 66 0d 65 6e 64 20 69 66 | 20 0d 65 6e 64 20 63 6f |f.end if| .end co|
|000019d0| 6c 6f 72 43 68 61 6e 67 | 65 0d 0d 0d 6f 6e 20 63 |lorChang|e...on c|
|000019e0| 6f 6c 6f 72 43 68 61 6e | 67 65 38 0d 73 65 74 20 |olorChan|ge8.set |
|000019f0| 74 68 65 20 63 6f 6c 6f | 72 44 65 70 74 68 20 3d |the colo|rDepth =|
|00001a00| 20 38 20 0d 65 6e 64 20 | 63 6f 6c 6f 72 43 68 61 | 8 .end |colorCha|
|00001a10| 6e 67 65 38 0d 1c 91 e5 | 8c 8e 20 90 5e 90 6c 20 |nge8....|.. .^.l |
|00001a20| 2d 20 8a 94 8e ae 89 ef | 8e d0 20 83 55 a5 83 8f |- ......|.. .U...|
|00001a30| 83 93 25 42 69 67 20 4d | 6f 6f 6e 20 53 74 75 64 |..%Big M|oon Stud|
|00001a40| 69 6f 20 2d 20 54 68 65 | 20 4f 6e 65 20 43 6f 72 |io - The| One Cor|
|00001a50| 70 6f 72 61 74 69 6f 6e | 00 00                   |poration|..      |
+--------+-------------------------+-------------------------+--------+--------+